perm filename FOO.LSP[L70,TES] blob sn#044617 filedate 1973-05-22 generic text, type T, neo UTF8
(DEFPROP FOO
 (LAMBDA NIL
  (PROG (GCT MT CNT)
        (INC (EVAL (LIST (QUOTE INPUT) (QUOTE (SET RWW)) (QUOTE (NGBREL . FOL)))) NIL)
        (SETQ CNT 0)
        (SETQ GCT (GCTIME))
        (SETQ MT (TIME))
        (ERRSET (PROG NIL LOOP (COND ((PROG2 (SCANNER) (SETQ CNT (ADD1 CNT)) (PRINC !SCANVAL)) (GO LOOP))))
                NIL)
        (PRINT (*DIF (TIME) MT))
        (PRINT (*DIF (GCTIME) GCT))
        (PRINT CNT)))
EXPR)